home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / talker.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-11-09  |  10.1 KB  |  93 lines
  1. 10  ' title
  2. 20  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80
  3. 25  LOCATE 5,26:PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  4. 26  LOCATE 6,26:PRINT"OPEN   VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR   OPEN"
  5. 27  LOCATE 7,26:PRINT"OPEN   CALL  **  TALKER  **  CALL   OPEN"
  6. 28  LOCATE 8,26:PRINT"OPEN   CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'   OPEN"
  7. 29  LOCATE 9,26:PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  8. 30  LOCATE 7,37:COLOR 22:PRINT"TALKER";:COLOR 7,0
  9. 31  LOCATE 15,26:PRINT"        Initializing...":LOCATE ,,0
  10. 40  ' load machine subroutine
  11. 41  CLEAR ,&H4000:TALK=&HE000:DIM A$(36)
  12. 45  FOR I=0 TO 71:READ J:POKE TALK+I,J:NEXT I
  13. 50  ' the machine language subroutine
  14. 51  DATA &H55,&H8B,&HEC,&H8B,&H76,&H6,&H8A,&H4,&H8A,&HC8
  15. 52  DATA &H46,&H8B,&H3C,&H8A,&HE9,&HE4,&H61,&H24,&HF7,&HE6,&H61
  16. 53  DATA &H8A,&H3D,&H80,&HFF,&H20,&H74,&H25,&HB6,&H6,&HFE,&HC6
  17. 54  DATA &HD0,&HE7,&H32,&HE4,&HD0,&HE7,&HD0,&HD4,&HD0,&HD4,&HE4
  18. 55  DATA &H61,&H24,&HFC,&H2,&HC4,&HE6,&H61,&HB3,&H25,&HFE,&HCB
  19. 56  DATA &H75,&HFC,&HFE,&HCE,&H75,&HE6,&H47,&HFE,&HCD,&H75,&HD4
  20. 57  DATA &H5D,&H58,&H5B,&H59,&H53,&H50,&HCB
  21. 100  ' set voice definitions
  22. 101  A$(1)="<UNK! {00F8}><UNK! {0080}>LET<UNK! {0080}>NEXTBLOADXORRETURNREADEND<UNK! {0080}>SAVEREADNEXT<0xE1!><0xE0!>SYSTEMMOTORXORLINE<0x9F!>END<0xE0!><UNK! {00F8}>STOPREMCLSXORLOAD<UNK! {0080}><0x9F!>CLSLINELOADRUNREMCLSOUTLLISTREADREM<0xE0!>OUTREMENDREADXORREADREADCLS<0xE1!>XORNEXTBLOAD<0xE0!><UNK! {00F8}>SYSTEMBLOADXOR<UNK! {00F8}>LEFT$<0xE3!>XOR<UNK! {00F8}>COLORNEXT<0xE3!>XOROPTIONLEFT$<0xE1!>XORLOADCOLOREND<0xE1!><UNK! {00F8}>OUTCOLORMOTORXOR<UNK! {00F8}>LLIST<0x9F!>CLSXOR<UNK! {00FC}>RETURN<0x9F!><0xE0!><UNK! {00F8}>SAVEREADREM<0xE0!><UNK! {00F8}>LOADREMREM<0xE0!><UNK! {00F8}>LLISTREADPRESET<0xE0!>LOAD<0x9F!>READBLOADXORLOAD<0x9F!>READ<0xE1!>XORSAVEREMNEXT<0xE1!>XORSAVEREMNEXTEQV<0xE0!>LOADREMBLOAD<UNK! {00F9}>CLS<UNK! {00F8}><0x9F!>READ<UNK! {00F6}>END<UNK! {00F8}>SAVEREAD<UNK! {00FC}>NEXTXOR<UNK! {00FC}>REMXORREMMOTOR<UNK! {00F8}>COLORCLSSAVENEXTXOR<UNK! {00FC}>END<UNK! {00F8}><0x9F!>PRESETXORREMCLS<UNK! {00FC}>SAVEEND<UNK! {00FC}>REM<UNK! {00F7}><0xE0!><0x9F!>CLS<UNK! {FFFE}>END<UNK! {00FC}>READ<UNK! {FFE0}><0x9F!>CLS<UNK! {FFFC}>NEXT<UNK! {00F8}>REM<UNK! {FF80}>COLORNEXT<UNK! {FFF0}>READ<0xE0!><UNK! {FFFC}>NEXT<UNK! {00F8}><0x9F!><UNK! {FF80}><UNK! {00FC}>REM<UNK! {FF80}>LOADREM<UNK! {FF80}>OUTREM<UNK! {FF80}>OUTREM<UNK! {FF80}>DATAREM<UNK! {FF80}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FFF8}>"
  23. 102  A$(2)="<UNK! {FE80}>POKERESTOREEND<UNK! {00FC}>NEXT<UNK! {FFF0}>NEXTXORREM<0xE3!>CLS<0x9F!>CLSLOADRETURNEND<UNK! {00FC}>NEXTXOR<UNK! {00F8}>READXORREMREADCLS<0x9F!>CLSLOADLLIST<UNK! {0080}><UNK! {00FC}>END<0xE0!><UNK! {00FC}>NEXT<UNK! {00F8}>NEXTMOTORXORREADXORREADNEXT<0xE0!>REM<0xE0!>LLISTREADCLS<0x9F!>CLSOUTREM<UNK! {0080}>COLOR<UNK! {0080}>OPTION<0x9F!><UNK! {0080}>SAVE<UNK! {0080}>XORSAVE<UNK! {0080}><UNK! {00FC}>END<0xE0!><UNK! {FE80}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}>SAVE<UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}>SAVE<UNK! {0080}><UNK! {FF80}><UNK! {0080}>LLIST<UNK! {0080}>COLOR<UNK! {0080}>DATARETURN<UNK! {0080}>COLOR<UNK! {0080}>OUTRESTORE<UNK! {0080}><UNK! {FE80}>OUTPOKE<UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {00FC}>STOPNEXT<UNK! {00F8}>END<0xE1!><UNK! {0080}>REMCLSREM<UNK! {0080}><UNK! {0080}>SAVE<UNK! {0080}><UNK! {00F8}><UNK! {0080}>READ<0xE0!>RESTORE<UNK! {0080}><UNK! {0080}>OPTION<UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}>NEW<UNK! {0080}><UNK! {0080}><UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}><UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}><UNK! {0080}>RUN<UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR"
  24. 103  A$(3)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>GOTO<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM\<UNK! {0080}>READ<UNK! {00F8}>COLOR<UNK! {0080}>NEXT<UNK! {00FC}><0x9F!><UNK! {FE80}>SAVEREAD<UNK! {FF80}>REMMOTOR<UNK! {FFE0}>READXORCOLOR<UNK! {00F8}>NEXT<UNK! {00F8}><0x9F!><UNK! {00FC}><UNK! {0080}>SYSTEM<UNK! {FF80}><0x9F!>CLS<UNK! {FFF0}>READ<UNK! {00F8}>REM<UNK! {FE80}>COLOREND<UNK! {FFE0}>READ<UNK! {00F8}>REM<UNK! {FE80}>COLORCLS<UNK! {FFF0}>NEXT<UNK! {00FC}>NEXT<UNK! {FE80}>COLORCLS<0x9F!><UNK! {00F8}>ENDFILES<UNK! {FFE0}>READ<UNK! {00F8}>READ<UNK! {FF80}><0x9F!><0xE0!><0x9F!><UNK! {FE80}>COLOR<UNK! {0080}>COLOR<UNK! {00F8}>ENDFILES<UNK! {FFF0}>NEXT<UNK! {00FC}>END<UNK! {FFE0}>REMXORNEXT<UNK! {FF80}><0x9F!><0xE0!>READ<UNK! {FF80}><0x9F!>CLSREM<UNK! {FE80}>COLORCLSREM<UNK! {FE80}><UNK! {FF80}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FF80}>REM<UNK! {00F8}>END<UNK! {FE80}>DEFXORREAD<UNK! {00F8}>NEXTPRESETCLS<0x9F!><0xE0!>OUTLLIST<UNK! {0080}><UNK! {FE80}>XORXORREADXORREMRETURN<UNK! {0080}>SAVEENDXORXORREADCLS<UNK! {0080}>RETURN<UNK! {0080}>OPTIONFOR<UNK! {0080}>CLSNEXT"
  25. 104  A$(4)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9A!><UNK! {0080}>GOSUB<UNK! {0080}>NEXTXOREND<UNK! {00F8}>CLSREM<0xE0!>REMCLSEND<UNK! {FE80}><UNK! {00FC}>WIDTHREMXORREMIMP<UNK! {0080}><UNK! {FF80}><UNK! {FFB0}>READXORREAD<UNK! {00FB}><UNK! {0080}><UNK! {FF80}>COLORPOKEREAD<UNK! {00F8}>END<UNK! {00FA}>CLSREMCLSREM/NEXT<UNK! {00FC}><UNK! {0080}><UNK! {FDA0}>REMXORNEXT<UNK! {FDC0}><0x9F!>CLSREM<UNK! {FE80}>SAVE<UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {FFB0}>READ<UNK! {00F8}>END<UNK! {00FC}>XORREMXORNEXT<UNK! {00F8}>CLS<0x9F!>CLSREM<0xE3!><UNK! {0080}><0x9F!><UNK! {0080}><0x9F!>STRING$<UNK! {0080}>SAVE<UNK! {0080}>COLORDEFSTR<UNK! {0080}><UNK! {00FC}><UNK! {0080}>MKDIREND<UNK! {00F8}>END<UNK! {00FC}>WIDTHREADXORNEXT<UNK! {00F8}><UNK! {0080}>REM<0xE0!>REM<0xE0!><UNK! {0080}><UNK! {FE80}>PENNEXT<UNK! {00F8}>NEXT<UNK! {FF80}><0x9F!>CLS<0x9F!><UNK! {00F8}>END<UNK! {00FC}>END<UNK! {FF80}><0x9F!>CLSREADXORNEXT<UNK! {00F8}>END<UNK! {FE80}>SAVE<UNK! {0080}>COLOR<UNK! {0080}>REMCLS<UNK! {0080}><UNK! {0080}>NEXT<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>OPTION<UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR"
  26. 105  A$(5)="<UNK! {00FC}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><0x9F!><UNK! {0080}>REMCLSREM<0xE0!>READ<0xE0!>READXORNEXT<UNK! {00F8}>NEXT<UNK! {00F8}>END<UNK! {00FC}>END<UNK! {00FC}><UNK! {0080}>FILES<UNK! {FE80}>SAVE<UNK! {0080}><UNK! {FE80}>COLOR<UNK! {0080}>COLORCLSREM<0xE0!>REMXORNEXT<UNK! {00F8}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {FF80}><UNK! {FFC0}>REMXORREM<UNK! {00F8}>NEXT<UNK! {00FC}>NEXT<UNK! {FE80}>COLORCLSCOLOR<0xE0!>READXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLS<0x9F!><0xE0!>READ<UNK! {00F8}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FF80}><0x9F!><0xE0!>REMXORNEXT<UNK! {00FC}>END<UNK! {FF80}>COLORCLS<0x9F!><0xE0!>READXORNEXT<UNK! {00FC}>END<UNK! {FE80}><UNK! {FF80}><0x9F!>CLSCOLOR<0xE0!>REM<0xE0!>REM<UNK! {00F8}>NEXTXORREAD<UNK! {00F8}>END<UNK! {00F8}>END<UNK! {00FC}><UNK! {0080}>SAVE<UNK! {0080}>LINE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA"
  27. 106  A$(6)="<0xE0!><0xE0!><0xE0!>XORPOKEOPTIONELSEPRESETNEXTREADDIMRETURN<UNK! {00F8}>LINEXORBLOADSTEPREADREMRESTOREOUT<UNK! {00F8}>LINE<UNK! {00F8}><0xE1!>=BLOADREADDIMLLIST<UNK! {00FC}>POKE<UNK! {00F8}><0xE1!>=BLOADREADDIMOUT<UNK! {00FC}>LINE<UNK! {00F8}><0xE1!>ORBLOADREADOUTCALL<UNK! {00F8}><0xE1!>MODPSET<0x9B!>DIMRETURNOPTIONMODOPTION<0xE1!>BLOADRETURNCLOSEDIMRESTORELINE<0xE3!><UNK! {00F8}>LINE=DIM<0x9F!>DIMOUT<UNK! {00F8}>ERROR<UNK! {00F9}>NOTERRORLETCOLORTHENNEWXOR<0xCB!><UNK! {00F8}>FNBLOADDIMSTEPBEEPRESTOREPOKESTOP<UNK! {00FC}>RESUME+<0xE1!>INKEY$<0xE2!>READ<0xE4!><0x9F!><UNK! {00F6}><UNK! {0080}>DIMREADEQVCLS<UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS"
  28. 107  A$(7)="CLS<UNK! {0080}>CLS<UNK! {0080}>TRON<UNK! {0080}>DATA<UNK! {0080}>CLSCLSWHILE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATABSAVEDEFSTRFORDATA<UNK! {0080}>RANDOMIZE<UNK! {0080}><UNK! {0080}>ENDSTOPINPUT\FORSCREENDATAENDLEFT$SWAPSTOPENDLEFT$<0xE0!><UNK! {0080}>ENDSYSTEM<0xE0!>STOPNEXT<UNK! {00FC}>READCLS<UNK! {0080}>REMXOR<0x9F!>END<UNK! {0080}><0x9F!><0xE0!>NAME<UNK! {0080}>LEFT$<UNK! {00FC}>LETENDFILES<UNK! {00F8}><UNK! {0080}>NEXT<UNK! {00FC}>NEXTXORWIDTHREAD<UNK! {00F8}>READXORCLSREM<UNK! {00F8}>READ<UNK! {00F9}>CLSREM<UNK! {00F8}>NEXT<UNK! {FDC0}>REM<UNK! {00F8}>NEXT<UNK! {FFC0}>READ<UNK! {00F8}>END<UNK! {FFE0}>READ<UNK! {00FC}>END<UNK! {FFE0}>READ<UNK! {00F8}>END<UNK! {FFC0}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00F8}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00F8}><UNK! {0080}><UNK! {FFC0}>REMXOREND<UNK! {FF80}><0x9F!><0xE0!>READ<UNK! {FE80}><UNK! {FF80}>COLORXORNEXT<UNK! {00FC}>END<UNK! {FFC0}><0x9F!><0xE0!>REM<UNK! {00F8}>END<UNK! {00FC}>END<UNK! {FE80}>LLIST<UNK! {0080}>OPTIONCLSREMCLSPOKE<UNK! {0080}><UNK! {0080}><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LET"
  29. 108  A$(8)="<UNK! {00FC}>READNEXT<0xE0!>XORKILLPRESET<0xE1!>XOR<UNK! {00FC}>REMREADBLOADXOR<UNK! {00F8}>LLISTREMBLOAD<0xE1!>XORLOADREMREADBLOAD<0xE0!><UNK! {00F8}>LOADREMREADNEXTXOR<UNK! {00F8}>SAVEPOKEREMPRESET<0xE0!><UNK! {00F8}><INKEY$READNEXT<UNK! {00F6}>ENDXOROPTION<0x9F!>LINEREMNEXTXOR<UNK! {FF80}><UNK! {00FC}>REMPRESETXORREMMOTOR<UNK! {00F8}><UNK! {00FC}>NEXT<UNK! {00F8}><0x9F!><0xDF!>CLSOUTNEXT<UNK! {FFF0}>REMCLSDEFDBL<UNK! {00F8}>READ<0xE0!>INPUT<UNK! {00FC}>NEXT<UNK! {00FC}><UNK! {0080}><0xDF!><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {0080}>DATAELSEEND<UNK! {0080}>STOPDATALETBSAVE<UNK! {0080}>LETSTOPSTOPGOTODIMENDDATAWIDTHDATA<UNK! {0080}><UNK! {0080}>BSAVEDATACLSENDERASE<UNK! {0080}>LINEENDWIDTH<UNK! {0080}>BSAVESCREENLET<UNK! {0080}>SPC(BSAVELETLETCLS<UNK! {0080}>LETCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}>LPRINTWAIT<UNK! {0080}><UNK! {0080}>ERASELINE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>ERR<UNK! {0080}>RUNERRXORENDAUTOCLS<UNK! {0080}>DIMRETURN<UNK! {0080}><UNK! {0080}>DIM"
  30. 109  A$(9)="PRESET<UNK! {0080}>TRONWENDNEXTLET<0xB4!>PRINTCALLENDLETSAVERESTORE<<0xE2!>DIMDATATROFFIFOUTCLSSOUNDRESTOREMODTROFFOUTCALLFORPOKE'PSETLET<0xE3!>RESTORE/<0xE3!>RESTORE<0xE3!>RESTOREDEFSTR<0xE3!>LETBSAVEPOKE<UNK! {00F9}>>OUTBLOADPOKE<UNK! {00F9}><0xE3!>RESTORE<0xE1!>RESTORE/<0xE0!>PSETBSAVERESTORELOAD<0xE0!>DIMTROFFDIMLLISTLINEFORWHILEBLOADRUNPOKE<UNK! {0080}>POKE+PRESETTOENDRESTOREOUT<0xE2!>><UNK! {0080}>ERRORRESTOREPOKEEQVCLSPRINTPSETDIMDATALINEDATAWHILESCREENMOTORTOENDRESTORELISTPOKECALLBSAVE<UNK! {0080}><UNK! {0080}>TROFFDIMOPTIONPSETPOKEGOTOBLOADWAITENDTOTRONLINE<0xE3!><UNK! {0080}>ELSEMOTORRUN<0xB4!><0xE0!>DATALINETROFFLOCATEOUTSTOPSCREENUSR<0xE1!>PSETFORLETOPTIONWHILEEQVBSAVEDATALET<0xB4!>LINEMOTORDIMLETOPTION<UNK! {00F8}>WIDTHRETURNSTOPXOR<UNK! {00F8}>STOP<0x9F!><UNK! {0080}>LINELOADLETREM<UNK! {0080}><UNK! {00F8}>OPTIONOUTREMCLSXOR<UNK! {00FC}>RETURNREMEND<0xE0!><UNK! {00F8}>OUTLLISTREADMOTORXOROPTIONXORLLISTREADENDEQV<UNK! {0080}>XOROPTIONREADLETREMNEXTCLSRANDOMIZE<UNK! {0080}>XOROPTIONREAD<UNK! {0080}>RETURNREAD<UNK! {0080}>LINEEND<UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXTCLS<UNK! {0080}><UNK! {0080}>ENDCLS<UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH"
  31. 110  A$(10)="FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FORLETENDSOUNDWIDTH<UNK! {0080}>STOPFORSWAPCLEAR<END<UNK! {00FC}><UNK! {0080}>ERLSTOPNEXT<UNK! {00FC}>READXORXORNEXT<UNK! {00F8}>REM<0xE1!>XOR<0x9F!><0xE0!>COLORREADCLSCOLORNEXT<UNK! {00F8}>SAVEEND<UNK! {00FC}>REMBLOAD<UNK! {00FC}>READ<0xE0!><UNK! {00FC}><0x9F!>LETREMMOTORXOR<UNK! {00FC}>LINE<0x9F!>READ<0xE1!><UNK! {00F8}>XORLLISTREMMOTORXOR<UNK! {00F8}>LLISTREMNEXT<0xE1!><UNK! {00F8}>LLISTREADBLOAD<0xE1!><UNK! {00FA}>NEXT<0xE3!>XOR<UNK! {00F8}>LOAD<UNK! {0080}><UNK! {00F8}>LOADLLISTREMPOKELLISTREMREADBLOAD<UNK! {00F6}>READPRESET<0xE1!>XORCVI<0xE1!><UNK! {00F8}><UNK! {00F8}>COLORENDXOR<UNK! {00F8}>LOAD<0x9F!><0xE0!><UNK! {00F8}>LOADLLISTREADUSRLOADLLISTREMNEXT<UNK! {00F8}>LLISTREMREADMOTOR<UNK! {00F8}>LLISTREMBLOAD<0xE1!><UNK! {00FC}>READPRESET<0xE1!>XORLOADREADBLOADXORXORSAVENEXT<0xE1!><UNK! {00F8}>LOADLLISTENDXOR<UNK! {00FC}>LLISTREADEND<UNK! {00F8}>SAVEREADREAD<UNK! {0080}><UNK! {00F8}><0x9F!>READ<0xE3!><UNK! {0080}><UNK! {00FC}><0x9F!>NEXT<0xE3!><UNK! {0080}><UNK! {00F8}><0x9F!>NEXT<UNK! {00FC}>ENDXOR<UNK! {00FC}>REM<0xE0!>REMMOTOR<UNK! {00F8}>COLOR<UNK! {0080}><UNK! {00FC}>REMMOTOR<UNK! {00F8}>READ<0xE0!><UNK! {00FC}><0x9F!><UNK! {0080}><UNK! {00FC}>REMBLOAD<0xE0!><0x9F!>NEXTXOR<UNK! {00F8}>READ<0xE1!><UNK! {00FC}>SAVE<UNK! {0080}><UNK! {00F8}>COLORCOLOR<UNK! {0080}>XORCOLOR<UNK! {FE80}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}><UNK! {0080}>COLOR<<UNK! {0080}><UNK! {0080}>COLOR<0xE0!><UNK! {0080}><UNK! {0080}>COLOR<0xE0!><UNK! {0080}><UNK! {0080}>COLORWIDTH<UNK! {0080}><UNK! {0080}>OUT"
  32. 111  A$(11)="CLSDIM<UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLSSTOPSTOP<UNK! {0080}><UNK! {0080}>POKE<UNK! {0080}><UNK! {0080}>READ<UNK! {FFFC}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {00F8}><UNK! {0080}>END<UNK! {FE80}><UNK! {FEFC}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>FOR<UNK! {FFE0}>NEXT<UNK! {00F8}>READ<UNK! {FFF9}>XOR<0x9F!>PRESETXOR<UNK! {00FA}>END<UNK! {00F8}>SAVE<0x9F!>XORLLISTREM<0xE3!><UNK! {00FB}>ENDXOR<UNK! {00FC}>COLORPOKEREMREAD<0xE1!><UNK! {00F9}><0xE0!>LOAD<0x9F!>READPRESETENDXOR<UNK! {00FC}>LLISTLLISTNEXT<0xE3!>XOR<UNK! {00F8}>LOADREMREADBLOADXOR<UNK! {00F8}>RETURNREMPRESET<0xE1!><UNK! {00F8}>LLISTREMREADNEXTXORLLIST<0x9F!>REMNEXT<UNK! {00F8}>RETURNREMREADBLOAD<UNK! {00FC}>READREADBLOAD<0xE1!>MID$<0xE3!><0xE1!>XOR<UNK! {FFC0}>XOR<UNK! {00F8}>OPTIONCOLORXORLOADSAVELLISTREAD<UNK! {00FC}>RETURNREMREADBLOAD<UNK! {00FC}>READPRESETMOTORXORLEFT$EQV<UNK! {00F8}>LOAD<0x9F!><0xE0!>OPTIONSAVEREMREAD<UNK! {00FC}>REMREAD<0xE1!>XORLEFT$XOR<UNK! {00F8}>LLISTREADXORLLISTREMBLOAD<0xE1!><UNK! {00FC}>REM<0xE3!>XORLOADREMEND<UNK! {00F8}>SAVEREAD<0xE3!><0xE0!>SAVEREAD<0xE0!><UNK! {FEF0}>REM<0xE1!><UNK! {00F8}><0x9F!><UNK! {00F8}>READXOR<UNK! {00FC}>REM<UNK! {00FC}>NEXTXORSAVEREAD<UNK! {00F8}>NEXTXORSAVEREADXORREM<0xE0!><UNK! {00FC}>REM<0xE0!><0x9F!>MOTOR<UNK! {00F8}><0x9F!><UNK! {0080}>SAVENEXTXOR<UNK! {00FC}>END<UNK! {00F8}><0x9F!>READXORREAD<0xE1!><UNK! {00F8}>COLOR<UNK! {0080}><0x9F!>READ<UNK! {FFF0}>END<0xE3!>"
  33. 112  A$(12)="CLS<0xE0!><UNK! {0080}>READENDBLOADBLOAD<UNK! {0080}>READENDBLOADBLOADNEXTREMENDBLOADBLOAD<UNK! {0080}>RESTOREENDBLOAD<0xE1!><UNK! {0080}>DIM<UNK! {0080}><0xE1!><0xE1!>BSAVERETURN<UNK! {0080}>LINEEQV<0xE3!>REM<UNK! {0080}>LINE<UNK! {00F9}><0xE0!>BLOADDATAPOKELINE<0xE0!>BLOAD<0xE2!>RESTOREPOKELINEELSE<UNK! {00FB}>RETURNRESTOREOPTIONPRINTMERGEREADRETURNOUTLINETAB(PRESETPRESETRESTORELETERRORTROFFBSAVERESTOREDATAERROR<0xE1!>BLOADBLOADFORCONTINSTR<0xE0!><0xE0!><0xE0!>DATA<UNK! {00F8}>LINEOPTIONPOKE<0xE0!>LOADOUTOUTDEFSTRWHILELLISTRETURNDIM<0x9A!>RESTOREORREADNEXTSOUNDDIMCALLREADNEXTBSAVENEXTOUTBLOADMOTOR<0xE1!><UNK! {0080}>TAB(<0xE1!><0xE0!>XOR<0xE0!>CALL<0xE0!>XOROPTIONLINEREM<0xE0!>XORLOADPOKEREADXOR<UNK! {00F8}>OUTRESTOREREADXOR<UNK! {00F8}>LLISTRETURNREAD<0xE0!>XORLOADRETURNREAD<0xE1!>XORLOADRETURNREADMOTORXORLOADREMREADMOTORXORLOADREMREADNEXT<0xE0!>OPTIONRETURNDIMREADCLSXOROUTOUTREMNEXT<0xE0!>LINE<0xE0!><UNK! {00F8}>REMEND<0xE3!>NEXT<0xE0!>LOADREADSCREENREMEND<0xE0!>LLIST<UNK! {0080}><UNK! {00F8}>RETURN<UNK! {0080}><UNK! {00FC}>READEND<0xE0!>RESTORE<0xE0!>XOROUTEND<UNK! {00F8}>LETREAD<UNK! {0080}>READBLOADEND<0xE0!><UNK! {0080}>XORDATASTOP<UNK! {0080}>LOAD<UNK! {0080}>DATA<UNK! {0080}>CALL<UNK! {0080}><UNK! {0080}><UNK! {0080}>GOTO<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}>ENDRESTORE"
  34. 113  A$(13)="<0xE0!>NEXTNEXTBLOADREAD<UNK! {0080}>OUTOUTRESTORERESTORE<UNK! {0080}>RESTORELLIST<UNK! {0080}>GOSUBSOUNDRETURNLLISTLETNEXTMOTORNEXTPRESETBSAVE<UNK! {0080}><UNK! {0080}>LINE<0xE1!>EQVMOTORRESUMEDATARESTORELOADPOKEELSE<UNK! {0080}>MOTORREADBLOADDATAUSRDATAPOKEOPTIONSTOPTAB(<UNK! {0080}>NEXTREADSTOPGOTOCLS<UNK! {0080}><0xE1!>IMP<UNK! {0080}>INSTRDIMRESTOREOUTLINEERASE<UNK! {0080}>ELSEBLOADBSAVEDATA<UNK! {00F8}>POKEOPTION<UNK! {00F8}>STOPREMNEXTBEEPPRESETMOTORENDINSTRPOKEINSTR<UNK! {00FC}>LET<0x9F!>DIMREADREMCLS<0xE0!>XORCLS<UNK! {00F8}><UNK! {00FC}>READ<0xE0!>LETREADCLSCLSREADCOLORCLSCOLOR<UNK! {0080}><UNK! {0080}>SAVE<UNK! {0080}><UNK! {0080}><UNK! {FF80}>NEXT<UNK! {0080}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>REMXOR<UNK! {0080}>NEXT<UNK! {0080}>REM<UNK! {00F8}><UNK! {0080}>END<UNK! {0080}>REMXOR<UNK! {0080}>FOR<UNK! {0080}>REMXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FFC0}><UNK! {0080}>WIDTHEND<UNK! {FE80}><UNK! {0080}><UNK! {0080}>REMXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>COLORCLS<UNK! {0080}><UNK! {0080}>NEXT<UNK! {FF80}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><UNK! {0080}>END<UNK! {FFC0}><UNK! {0080}><UNK! {0080}>COLORSTEPCLSXORREMMOTOR<UNK! {00F8}>LLISTEND<UNK! {00F8}>SAVEREM<0xE0!>LOADREMMOTOR<UNK! {00F8}>REMNEXTXORSYSTEM<0xE0!><UNK! {00F8}><0x9F!><UNK! {0080}>XORSAVEREM<0xE0!>OPTIONREMPRESET<0xE0!>OUTREM=XOROUTREM=<0xE0!>RESTOREREM<UNK! {FFC0}><UNK! {0080}><0x9F!><UNK! {00FB}><UNK! {0080}><UNK! {0080}><0x9F!>\"
  35. 114  A$(14)="MOTOR=<0xE1!><0xE1!>=<UNK! {0080}>OR<0xE1!><0xE1!>=<UNK! {0080}>ORMOTORTROFFOREND<UNK! {FFC3}>BLOADTAB(ENDINTINPUTOUTINPUTSAVERETURNREMOPTIONINPUTRESETRETURN<UNK! {00F8}>IF<UNK! {00FC}>NEWLLISTXOR<0x9F!><UNK! {00F8}>OPTIONMERGELINE<0x9F!>XORXORLCOPYCOLOR<0xE0!>LINESYSTEMLEFT$<0xE0!><UNK! {00FC}>READ<UNK! {FE80}><0x9F!><UNK! {00FC}>END<UNK! {00FC}><UNK! {0080}><UNK! {FFF0}>READXORNEXT<UNK! {FFC0}>COLORCLSREMFILES<UNK! {00FC}><UNK! {0080}>COLOR<UNK! {00F8}>REMXORNEXT<UNK! {FFC0}>COLOR<UNK! {0080}><0x9F!><UNK! {00FC}>READ<UNK! {00F8}>END<UNK! {FFE0}>COLORCLSREMFILES<UNK! {00FC}><UNK! {0080}><UNK! {FFF0}><0x9F!><0xE0!>READFILES<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}><0x9F!>CLSREAD<UNK! {00FC}>READ<UNK! {00F8}>ENDLEFT$<UNK! {FE80}>COLORXOR<0x9F!>CLSREM<UNK! {00FC}>REMXORENDMID$<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}><UNK! {FE80}><0x9F!>XORCOLOR<UNK! {0080}>REM<UNK! {00F8}><0x9F!><0xE0!>READPAINTXORNEXTFREXORNEXTSQRXORENDSQRXOREND<UNK! {FEC7}>XORENDSAVESTEPXORENDCOLOR<0xDF!>XOR<UNK! {0080}><UNK! {00FC}>COLOR<0xE0!>RESTORE<0x9F!><UNK! {FFC0}>POKE<0x9F!><UNK! {FF80}>CLS<UNK! {FFF8}>DIMNEXT<UNK! {FFE0}>RESTOREREM<UNK! {FFC0}>LINECOLOR<UNK! {FE80}>CLS<UNK! {FEFC}>NEXTNEXT<UNK! {FFF0}>DATAREAD<UNK! {FFE0}><UNK! {0080}>REM<UNK! {FF80}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}>END<UNK! {FFF0}><UNK! {0080}>READ<UNK! {FF22}>
  36. 115  A$(15)="XOROPTIONWIDTH<UNK! {0080}>NEXTNEXTDIMFOR<UNK! {0080}>RETURNRETURNRESTORE<UNK! {0080}>STOPOUTRETURNRESTORE<UNK! {0080}>WIDTHOUTRETURNLETDATAWIDTHOUTRETURNRESTOREDATA<UNK! {0080}>OUTRETURNRETURNDIM<UNK! {0080}>RETURNREADDIMNEXT<UNK! {0080}>READNEXTBLOADEND<UNK! {0080}>READEND<0xE1!>CLS<0xE0!>NEXTCLSXORXORWIDTH<UNK! {0080}>XOROPTIONOUTLET<UNK! {0080}>OPTIONRETURNNEXTDIM<UNK! {0080}>READNEXTMOTOR<0xE0!><0xE0!>WIDTHXOROPTIONOPTIONPOKERESTOREOUTREADDIMNEXTCLS<0xE1!><0xE0!><UNK! {00F8}>LINEPOKERESTORERETURNREADBLOADMOTOR<0xE0!>LINEXOROUTRESTOREREADNEXTBLOAD<0xE0!>XORLINERESTOREDATAREMNEXT<0xE1!><0xE0!>LINESTOPOPTIONRETURNREADEND<0xE0!>MOTORXORLOADRESTOREREADENDNEXT<0xE0!><UNK! {00F8}>OUTRETURNFORREADEND<0xE0!>POKEOUTDATARETURNNEXT<0xE0!>LINEOPTIONLETOUTREAD<UNK! {0080}><0xE1!><0xE0!>WIDTH<UNK! {00F8}>LLISTNEXTMOTORCLSENDXOROUTREADNEXTCLSNEXT<0xE0!>OPTIONRETURNNEXT<UNK! {0080}>READCLSXORRESTOREDIM<UNK! {0080}>REMEND<0xE0!>OUTRESTORE<UNK! {0080}>LLISTNEXT<0xE0!><UNK! {00F8}>OUT<UNK! {0080}>LOADREADCLSXOR<UNK! {0080}><UNK! {0080}><UNK! {00F8}>REM<UNK! {0080}>XOR<UNK! {0080}>ENDXORLLISTEND<0xE0!><UNK! {0080}>READ<0xE0!>LOADNEXTCLS<UNK! {0080}><0x9F!><UNK! {0080}>XORRETURN<UNK! {0080}>END<UNK! {00F8}>READEND<0xE0!><UNK! {0080}>SAVEEND<0xE0!>RESTORE<UNK! {0080}><0x9F!><UNK! {0080}><UNK! {00F8}>READ<UNK! {0080}><0x9F!><UNK! {0080}>OPTIONREAD<0xE0!><0x9F!>"
  37. 116  A$(16)="CLSPOKEGOTO<UNK! {00F8}><UNK! {0080}>END<UNK! {FFFC}><UNK! {0080}>ENDCLS<0x9F!>XOR<UNK! {0080}>REM<UNK! {FFFF}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REMXORREM<UNK! {0080}>COLOR<0xE0!><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {FFF0}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><UNK! {00FA}><0x9F!>CLS<0x9F!>MOTOR<UNK! {00FC}>END<UNK! {00FC}>REM<0xE0!>REM<0xE0!><UNK! {FF80}>COLORNEXT<UNK! {00FC}>END<UNK! {00FC}>READXORREADXOR<0x9F!>CLSREM<0xE0!>COLORCLS<0x9F!>CLS<UNK! {FFC0}><0x9F!>CLS<UNK! {FFC0}>REMCLSCOLOR<0xE0!>READ<0xE0!><0x9F!>XORNEXT<UNK! {00F8}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FE80}><UNK! {FDC0}>REM<0xE0!>REMINSTRENDFILES<UNK! {00F8}><0xE0!>READ<UNK! {00F8}>NEXT<0xE0!><UNK! {0080}><0x9F!><0xE0!>READMOTOR<UNK! {0080}><0x9F!><0xE0!>READENDCLSREMXOR<UNK! {0080}><UNK! {0080}>STOPEND<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXTXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXTXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>ENDXOR"
  38. 117  A$(17)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}>END<UNK! {0080}><UNK! {0080}><UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}>COLORSTEPXORREAD<UNK! {00FC}>SAVE<UNK! {0080}><0x9F!><UNK! {FFF0}>NEXT<UNK! {FFFF}><UNK! {0080}><0x9F!><UNK! {00F5}><UNK! {00F8}>END<UNK! {FFAF}>CLSREM<UNK! {00FA}><UNK! {FE80}><UNK! {FEC3}>XORNEXT<UNK! {00F8}>DEFDBL<0xE0!><0x9F!><0xE0!><UNK! {FE80}>KILL<UNK! {00F8}>NEXT<UNK! {00F8}>REM<UNK! {00F8}>NEXT<UNK! {00F8}><0x9F!><UNK! {00F8}>NEXT<UNK! {00F8}><0x9F!><UNK! {00FC}>END<UNK! {00FC}>REM<UNK! {FF80}>MID$<UNK! {FFF0}>REMCLS<UNK! {00FC}>LEFT$<UNK! {00FC}>REM<0xE3!><UNK! {00F8}>READXORLOADREM<0xE0!><0x9F!>MOTORXOR<0x9F!><0xE0!><0x9F!>BLOAD<UNK! {00F8}>REM<UNK! {00F8}>READ<0xE0!><UNK! {00FC}>READ<UNK! {FF80}><UNK! {00FC}>READCLSCOLORLLISTEND<UNK! {00F8}>REM<UNK! {0080}>PALETTE<UNK! {0080}><UNK! {00FC}>READCLSOUTREAD<0xE0!>REMCLS<UNK! {0080}>NEXTSCREENLINE<UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}>END<UNK! {FFF0}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {FFDC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>OUT"
  39. 118  A$(18)="CLS<0xE0!>POKELOADLINE<UNK! {0080}>LLISTNEXTREMPSETLET<0x9F!>BLOADPRESET<0xE3!>DIMREMMOTOR<0xE3!>=RETURN<0x9F!>MOTORBLOAD<0xE3!>DIMREM<0xE1!><0xE3!><0xE3!>PRESETREMXOREQVEQV<0xE3!>PSET<UNK! {00F8}>OPTIONLOADXOR<0xE3!>LLISTRETURNRETURNPOKEOPTIONORBLOADNEXTTAB(RESTORECLOSEFNMOTOR<0xE3!>NEXTLPRINT<0xE4!>OPTIONOUT<0xE0!>CALLCONTPSETREADRESTOREDIMWRITEOPTIONXOREQVCLS>=PSETREADOUTRESTORECOLOR<UNK! {00F8}>LINEWHILEUSRMOTOROFFPRESETNEXT<0x9B!>POKE<0x9B!>TOLINERANDOMIZE<UNK! {00F8}>MOTORTO<0xE3!>NEXTKEYMOTORTHENANDOUTOUTRESTORERESTOREANDXOR<<0xE0!><0xE0!>>ORPSETPSETDIMDIMDIM<UNK! {00FC}>LOADOPTIONLINELINEERROR<0xE3!><0xE3!><0xE3!>NEXTFORSAVELLIST<0x9F!>OUTPOKE<0x9B!>EQVEQVEQVEQVBLOADPMAP<0x9F!>DIMRUN<0x9F!>MOTOR<0xE3!><0xE0!><0xE0!>ERRORXORLINE<UNK! {00F8}>POKE<0x9F!>XOROPTIONOUTRESTOREREM<UNK! {00F8}>OUTRETURNREADNEXT<UNK! {00F8}>RETURNREADNEXT<0xE1!><UNK! {00F8}>RETURNREADNEXT<0xE0!><UNK! {00F8}>RETURNREMREAD<0xE1!>XOROUTRETURNREMBLOAD<0xE0!>XORLOADLLISTLLISTREADNEXT<0xE0!>XORXORLOADLLISTREAD<UNK! {00F6}>NEXTNEXT<0xE0!><UNK! {FDE0}><UNK! {0080}>OPTIONCOLOR<UNK! {0080}><UNK! {0080}>END<UNK! {FF80}><UNK! {0080}>END<UNK! {FF80}><UNK! {0080}><UNK! {0080}>PEN<UNK! {0080}>END<UNK! {FE80}><UNK! {0080}>NEXT<UNK! {00FC}>"
  40. 119  A$(19)="<UNK! {00F8}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {00F8}>OPTIONOPTIONLINESAVEBLOADBLOADBSAVERUN/OUTOUTLINEMOD<0xE1!><0xE3!>PRESETREMSAVELLISTOUTOPTIONMODEQVMODBLOADPSET<0x9F!>PRESETRETURNOUTCONT<UNK! {00FC}>LINEEQVBLOADPRESET<0xE1!>PRESETPSETRETURNCOLORINPUTOUTPOKEMOD<UNK! {00FC}><0xB4!>XOR<0xE3!>STEP<0xE1!><0xE3!>PRESETRETURNCOLORGOSUBOUTPOKE<UNK! {00FB}><UNK! {00F8}>OPTIONLINESPC(MID$READLOCATEDEFDBLXOROPTIONLOAD<0x9F!>MID$BLOAD<0xE1!><UNK! {FFF0}>OUTOUT<0x9F!>ANDEND<UNK! {0080}>END<UNK! {FFE0}><UNK! {0080}>REM<UNK! {FFF0}><UNK! {0080}>READ<UNK! {FF80}><UNK! {0080}>OUT<UNK! {0080}><UNK! {0080}>NEXT<UNK! {FE80}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>NEW<UNK! {0080}><UNK! {0080}><UNK! {0080}>DIMEND<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORERL<UNK! {0080}><UNK! {0080}><UNK! {0080}>STOPENDSTOP<UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>GOSUBBSAVE<UNK! {0080}><UNK! {0080}>STOPAUTOSTOP<UNK! {0080}>ENDERASELET<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}>WEND<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}>TRON<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}>DATAELSE<UNK! {0080}><UNK! {0080}><UNK! {0080}>INKEY$<UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}>LISTOPENFORNEW<UNK! {0080}><UNK! {0080}>WIDTHSTOP<UNK! {0080}><UNK! {0080}>END<UNK! {0080}>NEW<UNK! {0080}>RUNPOINT<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WAIT<UNK! {0080}><UNK! {0080}><UNK! {0080}>CLSEND<0xE0!><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>SWAP<UNK! {0080}><UNK! {0080}><UNK! {0080}>MOTOR"
  41. 120  A$(20)="CLS<UNK! {0080}>WIDTHMOTORMERGESTOPTOWIDTH<UNK! {0080}><UNK! {0080}>PRESETSTEP<UNK! {00F5}><UNK! {0080}><UNK! {0080}>COLORLOCATE<UNK! {0080}><UNK! {00FC}><UNK! {0080}>COLORXORDATA<UNK! {0080}>DIMREM<UNK! {0080}>COLOR<0xE0!><UNK! {0080}>READ<UNK! {FDC0}><UNK! {0080}><UNK! {0080}>READSCREEN<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {FFE0}>REMMOTOR<UNK! {FE80}><UNK! {00FC}>REMXORREADXORCOLOR<UNK! {0080}>COLOREND<UNK! {00F8}>NEXT<UNK! {00F8}>REM<0xE0!>REM<0xE0!>COLORCLS<0x9F!>CLS<UNK! {FE80}>SAVEEND<UNK! {FE80}>SYSTEM<UNK! {00FC}><UNK! {0080}><UNK! {00FC}>NEXT<UNK! {FE80}>SAVENEXT<UNK! {FF80}><0x9F!><UNK! {0080}><UNK! {FFE0}>READXORCOLOR<UNK! {00F8}>END<UNK! {00FC}>READ<UNK! {00F7}><UNK! {0080}><0x9F!><0xE0!>SAVEPOKEENDSYSTEMEQV<0xE0!>READXORREMMOTOR<UNK! {0080}><0x9F!><0xE0!>SAVEDIM<UNK! {0080}>COLORCLS<UNK! {00FC}>DIM<UNK! {0080}><UNK! {FF80}><UNK! {00FC}>RESTOREEND<UNK! {FE80}><UNK! {00F8}>RESTORE<UNK! {0080}><UNK! {FF80}>OPTIONRETURN<UNK! {0080}>COLORCLSOUTREM<UNK! {0080}>COLORCLSRETURNREADCLS<0x9F!><0xE0!>READNEXTCLSREMXORRETURNREAD<0xE0!>READXORRETURNREAD<0xE0!>REM<0xE0!>LLISTREADCLS<0x9F!>CLS<UNK! {00F8}>REM<UNK! {0080}>SAVENEXT<0xE0!>LOADNEXTXORLLISTNEXT<0xE0!><0x9F!>END<0xE0!>LOADEND<0xE0!>OPTIONREMCLS<UNK! {0080}>DIMEND<0xE0!><UNK! {0080}>ENDEND<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD<UNK! {0080}><UNK! {0080}><UNK! {0080}>XOR<UNK! {0080}><UNK! {0080}>END<0xE0!>"
  42. 121  A$(21)="<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLORCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FFC0}>LET<UNK! {0080}><UNK! {0080}><UNK! {FFC0}>WAIT<UNK! {0080}><UNK! {0080}><UNK! {FF80}>SAVEWIDTHENDFILES<UNK! {00FC}>CLSREM<UNK! {00F8}>READ<UNK! {00FA}><UNK! {0080}>COLOR<0xE0!>COLOR<UNK! {00F8}>ENDFILES<UNK! {FFE0}>REM<UNK! {00F8}>REM<UNK! {FF80}>COLORCLS<UNK! {FFFC}>ENDSYSTEM<UNK! {FFF0}>REMXOR<0x9F!><UNK! {FFC0}>COLORCLS<UNK! {FFFE}>ENDSYSTEM<UNK! {FFFC}>NEXT<UNK! {00F8}>READ<UNK! {FFF8}>NEXT<UNK! {00F8}>REMOR<UNK! {00F8}>READ<UNK! {00F8}>READ<UNK! {00F7}><UNK! {00FC}>NEXT<UNK! {00F8}>READOR<UNK! {00FC}>END<UNK! {00FC}>READMOD<UNK! {FE80}>SYSTEM<UNK! {00FC}><UNK! {FF80}>COLORCLSLOAD<UNK! {FFE0}><0x9F!><0xE0!><0x9F!>REMXORREAD<UNK! {00F8}>READMOD<UNK! {00F8}>NEXT<UNK! {00FC}>NEXT<UNK! {FFFC}>NEXT<UNK! {00FC}>END<UNK! {00F9}><UNK! {00F8}>NEXT<UNK! {00FC}>END<UNK! {00F8}>XORREAD<UNK! {00F8}>READ<0xE1!>CLSREM<0xE0!>SAVE<UNK! {0080}><UNK! {0080}>SAVENEXTCLS<UNK! {0080}>NEXT<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {FFFC}><UNK! {0080}><UNK! {0080}>REMXOR<UNK! {0080}><UNK! {0080}>END<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>XOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD"
  43. 122  A$(22)="<UNK! {FFE0}><UNK! {0080}><UNK! {0080}><UNK! {0080}>READ<UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<<UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>READ<0xE5!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>SCREEN<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORSPC(<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WAITCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>RESUME<UNK! {0080}><0x9F!>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}>ENDDEFSNG<UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}>POKE<UNK! {0080}>ENDLIST<UNK! {0080}>INPUTMKD$DATA<UNK! {0080}>REM<UNK! {00FC}><UNK! {0080}>RESTORE<UNK! {0080}>REM<UNK! {00F8}>REMXOR<UNK! {0080}><0x9F!>XORCOLOR<0xE3!><UNK! {0080}><UNK! {FFC0}><UNK! {FFB8}>END<UNK! {00FC}>READ<UNK! {FFC0}><0x9F!><0xE0!>COLOR<UNK! {FE80}>LEFT$<UNK! {FFF8}>NEXTSYSTEM<UNK! {FFF0}>READ<UNK! {00FC}>READ<UNK! {FFE0}>READ<UNK! {00F8}>READ<UNK! {FFE0}>READ<UNK! {00F8}>READ<UNK! {FFF0}>READ<UNK! {00FC}>NEXT<UNK! {FFF0}>READ<UNK! {00FC}>NEXT<UNK! {FFF8}>END<UNK! {FE80}>COLOR<UNK! {FE80}><UNK! {FF80}>READ<UNK! {FF80}><0x9F!>XOREND<UNK! {FFF0}>NEXT<UNK! {00FC}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}><UNK! {FFC0}>READ<UNK! {FFC0}>REMXOR<UNK! {0080}><UNK! {FFF0}>NEXT<UNK! {FE80}>READ<UNK! {FF80}>COLOR<0xE0!><UNK! {0080}>COLORXORNEXT<UNK! {00FC}><UNK! {0080}>READ<UNK! {FE80}>COLORCLS<UNK! {0080}>COLOR<0xE0!>REMXORSTOPREM<UNK! {00F8}>END<UNK! {00FC}>RETURNEND<UNK! {FE80}>COLORREADCLSCOLOR<UNK! {0080}><0x9F!>NEXT<0xE0!><0x9F!>CLSREADBLOADXORRETURN<UNK! {0080}>NEXTNEXTXORFOR<UNK! {0080}><UNK! {0080}>READXORRESTORE"
  44. 123  A$(23)="USR<UNK! {0080}><UNK! {0080}><UNK! {FE80}>LINEREAD<UNK! {00F8}>REMREADBLOADXOROPTIONOUT<0x9F!>SCREENOPTIONLOAD<0x9F!><0xE0!>XORXOR<UNK! {00FB}>EQV<0xE1!><0xE1!>=<0xE1!>EQVXORWRITEXOR<UNK! {00F8}><UNK! {00F8}>MERGE<UNK! {00F8}>LOADLLISTREMTAB(READBLOAD<0xE0!>XOR<UNK! {0080}>OPTIONWIDTH<UNK! {0080}>POKE<UNK! {0080}>REM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}>CLSNEXTXORLLISTREADBLOAD<UNK! {00F8}>REMBLOADXOR<UNK! {00FC}>NEXT<0xE1!><UNK! {00F8}><0x9F!>CLS<UNK! {00F8}>OUTREM<0xE0!>RETURNREADMOTOR<UNK! {00F8}>NEXT<0xE1!>XORCOLORCLSSAVEREADCLSSAVE<UNK! {0080}>FILESMOD<UNK! {00F8}>NEXT<UNK! {00F8}>NEXT<UNK! {FFC0}>REM<0xE0!>READ<UNK! {FF80}>COLORCLSREAD<UNK! {FE80}>COLORCLSREAD<UNK! {00FC}><UNK! {0080}><UNK! {FFC0}>NEXT<UNK! {00FC}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {FD80}>READ<UNK! {00FC}><UNK! {0080}>REMXORNEXT<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {FE80}>WIDTHSAVE<UNK! {0080}><UNK! {FF80}><UNK! {0080}><0x9F!><UNK! {0080}><0x9F!>CLSRUNREMCLS<0x9F!><0xE0!>DIMREAD<0xE0!>READXORFORNEXT<UNK! {00F8}>NEXT<UNK! {00F8}>NEXTMOTOR<UNK! {00FC}>END<UNK! {00FC}>NEXTCLS<UNK! {FE80}><UNK! {00FC}>NEXT<0xE0!>COLOR<UNK! {0080}>SYSTEMXOR<0x9F!>CLSSAVENEXT<0xE0!><0x9F!><UNK! {0080}>SYSTEMXOR<0x9F!><UNK! {0080}>SYSTEM<0xE0!>SAVEEND<UNK! {00F8}>READCLS<UNK! {00F8}>READXORLLISTNEXT<0xE0!><0x9F!><UNK! {0080}><UNK! {00F8}>LLIST<UNK! {0080}><UNK! {00F8}>READ<0xE0!>XORREADCLSPOKEOUT"
  45. 124  A$(24)="XORLINE<0xE0!>SOUNDLOADPOKEXOR<0xE1!>PRESET<0xE1!>READRETURNRESTORECOLORDIMOUTOPTIONWHILE<UNK! {00FC}>POKEEQV<0xE1!>PRESETXOR<0xE3!>BLOADRETURN<0x9F!>BLOADREMRESTOREOPTIONSHELLPOKEEQV=EQVEQV<0xE1!>READIOCTLOUTIF<0x9F!>NEXTBLOAD<0xE0!>XOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD<UNK! {0080}><UNK! {0080}>XORNEXTRUN<0xE0!>OPTIONONWIDTHLET<UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORMOTORLETENDDATA<UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTHEND<UNK! {0080}><UNK! {0080}>ENDGOTOSTOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTHCLSFOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>END<UNK! {0080}>DEFINT<UNK! {0080}><UNK! {0080}>SWAP<UNK! {0080}>CLSLET<UNK! {0080}>DATACLS<UNK! {0080}><UNK! {0080}>DATAWIDTH"
  46. 125  A$(25)="<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {00FC}><UNK! {0080}>WIDTH<UNK! {0080}>WIDTHREADXORNEXT<0xE0!><0x9F!><UNK! {0080}>FILESXOR<0x9F!><UNK! {0080}><0x9F!>MOTOR<0xE0!>LOADREADMOTORXORLOADLLISTRETURNRESTORELLIST<0x9F!>READREADCLS<0xE1!><0xE3!>EQV<0xE3!>RETURNRETURNRESTORELLISTOUTWHILEBLOADXOR<0xE3!>EQVPSETPOKEMODRETURNLLISTPOKE<0xE3!>RETURNLINE<0xE3!>MODPSETRESTORE=RETURNDEFSNGOPTIONCONTTOOPTION<0xE3!>MODENDLET=PSETLLISTOPTIONPRINTRESTORE<UNK! {00F8}><0xE2!>=DIMCALL=RETURNRESTOREWHILESOUNDRANDOMIZEEQVBLOADTOPOKE=<0x9F!>POKERANDOMIZEMODRESTORECALLEQVREADLLISTLINE=SAVESTOPEQV=RESTOREWRITE<0xE2!>TAB(POKELINESTEPOPTIONRANDOMIZEMODPSETPOKETIME$POKELINENEXT<0x9F!>BLOADPRESETSTEPDIMREMXORXOREQV<0xE1!><0xE3!><UNK! {00F8}>LOADLOADOUTREADINSTROUT<0x9F!>READNEXTXORLLISTREMNEXTBLOADXORLOAD<0x9F!>READPRESETCLS<UNK! {00F8}>SAVEREAD<UNK! {00F8}>READ<0xE1!><UNK! {00F8}><0x9F!>CLSLOADREMMOTOR<UNK! {00FC}>NEXT<0xE0!><UNK! {00FC}>REMCLSLOADREMMOTOR<UNK! {00F8}>READMOTOR<UNK! {00F8}>LLISTENDXORLLISTREADCLSOPTIONREMNEXT<0xE0!>OUTREADMOTOR<UNK! {00FC}><UNK! {0080}><UNK! {0080}>OPTIONINPUT<UNK! {0080}><UNK! {0080}>DATAFOR<UNK! {0080}><UNK! {0080}>ENDANDCLS<UNK! {0080}><UNK! {0080}>DEFDBLCLS"
  47. 126  A$(26)="USR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>+<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>USR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM<0xE0!><UNK! {0080}>WIDTHSTOPREAD<0xE0!>OPTION<UNK! {FFE0}>REMCLS<UNK! {00FC}><UNK! {FFC0}><UNK! {00FC}>READBLOAD<UNK! {00FC}>NEXT<0xE1!><UNK! {00F8}>COLOR<UNK! {0080}>LOADLLISTREM><UNK! {00FC}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><0x9F!><UNK! {0080}>REMCLSREM<0xE0!>READ<0xE0!>READXORNEXT<UNK! {00F8}>NEXT<UNK! {00F8}>END<UNK! {00FC}>END<UNK! {00FC}><UNK! {0080}>FILES<UNK! {FE80}>SAVE<UNK! {0080}><UNK! {FE80}>COLOR<UNK! {0080}>COLORCLSREM<0xE0!>REMXORNEXT<UNK! {00F8}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {FF80}><UNK! {FFC0}>REMXORREM<UNK! {00F8}>NEXT<UNK! {00FC}>NEXT<UNK! {FE80}>COLORCLSCOLOR<0xE0!>READXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLS<0x9F!><0xE0!>READ<UNK! {00F8}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLS"
  48. 127  A$(27)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}>NEXTXOR<UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}>END\<UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>OPTION<UNK! {0080}>FOREND<UNK! {0080}><UNK! {0080}>LLIST<UNK! {0080}>FORWENDSTOPCLSCOLORCLS<UNK! {0080}><0xE0!>MOTOR<UNK! {0080}><UNK! {00FC}><UNK! {0080}>DIMCLSOUTREAD<UNK! {00F8}>ENDDEFINTELSEEND<UNK! {FE80}><UNK! {00F8}><UNK! {0080}>WIDTHCOLORCLSINKEY$<UNK! {0080}>XOR<0x9F!><0xE0!>COLORENDXOR<0x9F!>CLSCOLORENDLINE<0x9F!>CLSCOLORENDXOR<0xDF!><UNK! {0080}><UNK! {00FC}>INPUT<0xE1!>SAVEENDXORDEFBLOAD<UNK! {00FC}>IF<0xE4!>'NEXT<UNK! {00F8}>REMFOR<0xE1!><0xCB!><UNK! {00FA}>DEFSNGIFMOTORMOTOR<UNK! {00F8}><0x9F!>NEXTXOR<0xE0!>PAINTMOTOR<0xE4!><UNK! {00F8}><0x9F!>NEXTMOTOR<UNK! {00F9}>LLISTDEFFNXORSAVEDEFBEEPXORKILL>XORKILL<0xE0!><UNK! {00F8}>SAVEREADXOR<UNK! {00FA}>REMREADFORCOLORNEXTCLS<UNK! {00F8}><UNK! {00FC}>POKE<UNK! {00FC}>DIMNEXTNOTXOREQV<UNK! {00FC}>ANDRETURNDIMNEXTMOD<UNK! {00F8}><UNK! {00FC}><0xB6!><0x9F!>IFFN<UNK! {00F8}>XOROPTIONOUTRETURNRESUMEMKDIRRETURNREADPRINTNEXTRETURNPRESETENDBLOADXORPOKEWHILE\OPTIONRETURN<0x9F!>LET=REMTROFFCLSEQVXOROPTIONRESTOREOUTREADEND<0xE1!><0xE0!>OPTIONRESTOREOUTREADCLSEQVXOROPTIONRETURNRETURNEND<0xE0!>OPTIONOPTIONRETURNENDNEXT<0xE0!>OUTREADREADCLS<UNK! {0080}>LINELOADNEXTCLSMOTOR<0xE0!>"
  49. 128  A$(28)="<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>CLSENDCLSREADCLSDIM<UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {0080}>END<UNK! {00FC}><UNK! {0080}>XORNEXTXORLLISTNEXT<UNK! {FE80}>SAVEREAD<0xE0!>LOADREM<UNK! {00F8}>REMMOTOR<UNK! {00F8}><UNK! {0080}><UNK! {00FC}>NEXT<0xE0!>SAVENEXTBLOADXORLLISTREAD<0xE1!><UNK! {00FC}>LLIST<0x9F!>BLOAD<0xE3!>XOR<0xE3!><0xE3!><UNK! {00F8}>EQV=RESTOREOPTIONANDPOKEMOD=RETURNDEFRESTORERESTORE<0xE3!>READIFTAB(RETURNCALLCALLKEYPSETPSETOPENRANDOMIZE<0xE1!><0xE3!>=RESTORESWAP\<0xE1!><0xE3!>TOPOINTOPTION<UNK! {00F8}><0xE1!>PRESETEDITLOAD<UNK! {00F8}>EQV=SOUNDLOADPOKEWHILE<UNK! {00F7}>LOCATELOADLLISTRESUMEWHILEMODDIM<0xCB!>DATAOUT<UNK! {00F8}><0xE1!>IMP<DIMINKEY$<UNK! {0080}>REM><UNK! {0080}>DIM<UNK! {00F8}>WIDTH<UNK! {FFE0}><UNK! {0080}>COLORCLSNEXT<UNK! {FE80}>READ<UNK! {00FC}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><0x9F!>XORWIDTHCOLORXOR<UNK! {0080}>COLOR<0xE0!><UNK! {0080}>COLORUSR<UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><0x9F!>XOR<UNK! {0080}>REM<UNK! {00F8}>FORNEXT<UNK! {FE80}>END<UNK! {FF80}>STOP<0x9F!><0xE0!><UNK! {0080}>REM<0xE0!>FOREND<UNK! {FE80}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}>GOTO"
  50. 129  A$(29)="CLS<UNK! {0080}>NEXTLETXOR<0xB5!><UNK! {0080}>END<UNK! {0080}><UNK! {0080}>WIDTHSCREENMOTORENDEND<UNK! {0080}>END<0xE0!><UNK! {0080}>BSAVECLSFORIMP<UNK! {0080}><UNK! {0080}>NEWENDELSESTOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DEF<UNK! {0080}>NEWLET<UNK! {0080}>READ<UNK! {00F8}>LLISTRENUM<UNK! {00F8}><0x9F!>MOTORXORCOLOR<0xE0!>KILLMOTOR<UNK! {00F9}>READ<UNK! {00F8}>LLISTREM\<0x9F!><0xE0!><UNK! {00F8}><0x9F!><0xE0!>COLORMOTORXORSAVE<0xE0!>MID$<0xE0!>INPSAVEMOTORXORSAVESCREEN<0x9F!><UNK! {0080}>\REMBSAVENEXTXORLLISTREMEQVWIDTHKILL<0xE0!><0xFD8A!>NEXTXORLLISTNEXTXORPOKEREM<0xE0!><UNK! {00FC}>READ<0xE0!>XORCOLOREND<UNK! {00F8}>REM<0xE0!>XOR<0x9F!>CLS<UNK! {00FC}><0x9F!>CLS<UNK! {00F8}>REM<0xE0!>OPTIONREM<0xE0!>LOADREADXOR<0x9F!><UNK! {0080}>KILL<0xE0!>LEFT$<UNK! {00FC}>READXOR<0x9B!>NEXT<UNK! {00FC}>NEXTXOR<0x9F!>CLSLINENEXT<UNK! {00FC}>NEXT<0xE0!><0x9F!><0xE0!><UNK! {0080}>ENDFILESXORREM<0xE0!>LINE<UNK! {0080}><0x9F!><0xE0!>RESTORE<UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}>LINECOLORCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>READ<UNK! {00FC}><UNK! {0080}><UNK! {0080}>ENDXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>POKE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>XOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA"
  51. 130  A$(30)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LINE<UNK! {0080}><UNK! {0080}>DATAENDWIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORUSRWIDTH<UNK! {0080}>REM<0xE0!><UNK! {0080}>MOTOR<UNK! {00F8}>REMDATADIMREAD\ENDAUTOIFNEXTXORDATA<UNK! {00F8}>RESTOREREMCLSIFXOR<0xE0!><UNK! {FE80}>/<0xCB!>NEXTXORREAD<0xE0!>LINE<0x9F!>ENDSAVENEXTNEXT<UNK! {00F8}>NEXTXORCONT<0x9F!>CLS<0x9F!>NEXTMOTORCVDXOROUTSTEPXORDEFDBLKEYSWAP<0xDF!>INPUT<UNK! {00FA}>DEFSNGIFXORSTEPERASEXORLEFT$<UNK! {00F5}>STRING$IF\LLISTSTRING$XORSAVEBLOAD<UNK! {00F8}>*IF<UNK! {00F8}><0x9F!>INPUTLINE<0x9F!>BSAVE<UNK! {00FA}>CSRLINMOTOR<UNK! {00FC}>READUSRPOINTREM<0xE0!>COLORIFXOR<0x9F!>ENDLOADIFCLSFILES\<0x9F!>MOTORCVI<UNK! {00F8}>REMENDSYSTEM<UNK! {00F8}><0x9F!>ENDSYSTEM<UNK! {00F8}><0x9F!>CLSLEFT$<UNK! {00FC}>REM<0xE0!>COLORCLS<UNK! {00FC}>READ<UNK! {00F8}>REMXORREMCLS<UNK! {00FC}><UNK! {0080}>FILES<UNK! {00FC}>REM<0xE0!>NEXT<UNK! {00F8}><UNK! {0080}>XORREM<UNK! {0080}>END<UNK! {FE80}><UNK! {00FC}>READCLS<UNK! {0080}>COLORCLS<0x9F!><UNK! {0080}>XORDIMNEXT<UNK! {00FC}>END<UNK! {00F8}>READCLSLETNEXT<UNK! {00F8}>END<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}>"
  52. 131  A$(31)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTHSTOP<UNK! {0080}>WHILE<UNK! {0080}>ENDLINESTOPWIDTH<0xE2!>LET<UNK! {0080}>DATAEQVLETDIM<UNK! {0080}><UNK! {0080}>COLOR<UNK! {00F8}><0xE0!>PAINTREADXOR<UNK! {00FC}>READBLOADXOR<UNK! {00FC}>READBLOADXORSAVEREADBLOADXOR<UNK! {00FC}>READ<0xE3!>XORSAVENEXT<0xE1!><UNK! {00F8}><0x9F!>END<UNK! {00F8}>LOADREMCLS<UNK! {00FC}><0x9F!>NEXTXORLLISTREM<0xE0!><UNK! {00F8}>READBLOAD<LLISTENDXOR<UNK! {00F8}>READ<0xE0!>LOADSAVEENDXORREMREADCLSLLISTEND<0xE1!><UNK! {00F9}>READ<0xE0!>LOADLLISTLETLOADREADBLOAD<0xE1!>BLOAD<0xE0!>OPTIONSAVERESTORELLISTNEXT<0xE3!>XORWHILE<UNK! {00F8}>LLISTREMNEXTPRESETCLSXOR<UNK! {00FC}>SAVEREMNEXTCLSXORPMAPREADMOTOREQV<UNK! {00F8}>RETURNTROFFCLSMOD<UNK! {00F8}><0xE3!><UNK! {00F8}>XOROPTIONLOADRESTORECOLORLLISTREADNEXTMOTOR<0xE3!>EQV<0xE0!>XOR\OPENLPRINTRETURNPRESETNEXTEQVTAB(COLORLPRINTRETURNREAD<0xE3!>WEND<0x9F!>LPRINTPSETPRESET>TROFFSTEP=<0xE3!>MOD<UNK! {00FB}>POKEEQV<UNK! {00F8}><UNK! {00FC}>LOADSAVE<0xB6!>READ<0x9F!>REMPRESETBLOAD<0xE3!>CLS<UNK! {00F8}><UNK! {00FC}>LOADLLISTREADREAD<UNK! {0080}><0xE3!><UNK! {00F9}><UNK! {00F8}>OUTREMRESTOREMOTOR<0xE3!>EQV<UNK! {00F8}>OUTLLISTRESTORENEXT<0xE3!><UNK! {00F8}><UNK! {00F8}>RESTOREREMEND<UNK! {0080}>XOR<UNK! {00FC}>RETURNDIMREAD<0xE0!><UNK! {0080}>RESTOREREADXORWIDTHDIMLLIST<UNK! {0080}><UNK! {0080}><0x9B!><UNK! {0080}>POKE"
  53. 132  A$(32)="CLS<UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}>LETWIDTHOUT<UNK! {0080}>=<UNK! {FE80}><UNK! {00FC}>OPTIONOPTIONOPTIONRESTOREELSEREADCALLBLOADNEXTBLOADPRESETOUTPSETPOKEOPTIONWHILESPC(CONTPSETRETURNOUTCALLSCREENPSETRETURNOUTRANDOMIZETO=RESTORELOAD<UNK! {00F9}>CONTCONT<0xE1!>PRESETRETURNWRITE>POKELINE<0xE3!>TO<UNK! {00F9}><0xE3!>DIMRESTORERANDOMIZESTRING$OUTLINE<0xE1!>BLOADOUT<0xE3!>STEPOUTPOKEWHILETAB(RANDOMIZEMOD<0xE3!>TOCLOSEPRESETLLISTOPTIONLINE<0xE3!><UNK! {00FC}>MOD<0xE3!>PRESETREAD<0x9F!>DIMLOADOUTOPTIONOPTIONXORELSE<0xE3!><0xE1!>BLOADPRESETPSETLLISTSAVELLISTLLISTDELETE<0xE1!>XORXORRANDOMIZE<UNK! {00FC}>RESTORELLISTREMREADBLOAD<0xE1!>BLOADXOR<UNK! {00F8}><0x9F!>NEXTRESTOREREMMOTORUSRRANDOMIZE<UNK! {0080}>LINE<0x9F!>CLS<UNK! {0080}><UNK! {0080}>CLSLINE<0x9F!>CLS<UNK! {0080}>GOTOSTOPLINE<0x9F!>CLS<UNK! {0080}>NEXTDATAPOKEREM<0xE0!><UNK! {0080}>WIDTH<UNK! {0080}>RESTOREREAD<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}>COLORCLS<UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}>READ<UNK! {00F8}><UNK! {0080}>FOREDITDIMEND<UNK! {00FC}><UNK! {0080}>LETSCREEN<UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>SOUNDFORWIDTH<0x9F!><<UNK! {0080}>DEFUSRPOKEREM<UNK! {00F8}><UNK! {0080}>RUNPOKEDIMNEXT<UNK! {00F8}><UNK! {0080}>REM<ENDMOTOR<UNK! {00FC}><UNK! {0080}>READ<UNK! {00F8}>NEXTBLOAD<UNK! {00F8}>LOADREMSTEPEND<0xE1!><UNK! {00FC}>LLISTREADPRESET<0xE0!>OUTREM<0xE3!>"
  54. 133  A$(33)="CLSMOTORDATAWIDTHSTOPSWAPSCREEN<UNK! {0080}>LINESTOPDATA<UNK! {0080}><UNK! {0080}>GOTO<UNK! {0080}><UNK! {0080}><UNK! {0080}>MOTOR<UNK! {0080}>LET<UNK! {0080}><0xE2!>DATA<UNK! {0080}><UNK! {0080}>LETCLEARSWAPDATA<UNK! {0080}>MOTORNEWPOKEENDCLSCLSLISTDATACLSFOR<UNK! {0080}>GOTOSCREENCLSEND<UNK! {0080}>LETWIDTHSTOPBSAVELET<UNK! {0080}>ENDSWAPRESUME<UNK! {0080}>ENDSTOPCLSDELETEINPUTENDSWAP<UNK! {0080}><UNK! {0080}>LETWIDTH<UNK! {0080}><UNK! {0080}>NEXT<0xE0!><UNK! {0080}>PALETTECLSREM<0xE1!><UNK! {00FC}>LLISTPOKE<0x9F!>BLOAD<0xE1!><UNK! {00F8}><0xE1!><UNK! {00FC}>OUT<0x9F!>BLOADBLOADXOR<UNK! {00F8}>SAVEREMREM<0xE1!>XOR<UNK! {00F8}>OPTIONSAVEREMREAD<0xE1!><0xE1!><UNK! {00FC}>LOADREMNEXTBLOADXORLOAD<0x9F!>READRENUM<OUTREADNEXTMOTOR<UNK! {00F8}>RETURN<UNK! {0080}>READCLS<UNK! {0080}>-<UNK! {0080}><UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEW<UNK! {0080}>CLS<0xB4!>CLEARCONT<0xB4!><UNK! {00F8}>RUN<0xE1!>DATAINPUTDATABLOADLETFNCLEARRUN<0x9A!>DEFSTRCLSINPUTENDTRONNEWSTRING$RESUMEMOTOR<0xE0!><0xE1!>SOUNDDEFSNGERL>CSRLINDELETEEND<0xB4!>+INPUTINPUTPRINT<UNK! {0080}>ELSE"
  55. 134  A$(34)="CLS<UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}>END<UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>ENDLET<UNK! {0080}><UNK! {0080}>CLSENDPOKELETWIDTH<UNK! {0080}>WIDTH<UNK! {0080}>STOPLINEENDGOSUBNEWSWAPGOTOSCREENWIDTHLETSTOPIFSPC(SWAPSOUNDKEYGOTOBSAVETROFFDATAEDITTOPOKESOUNDCLSSOUNDFORDATADATAFOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}>NEXT<UNK! {FE80}>BLOADXORLOADRETURNDATA<0x9F!>DIMREM<0xE1!>EQV<UNK! {00F8}>XOR<UNK! {00F8}>LLISTSTEPREADPRESETINPUT<0xE0!><UNK! {00F8}>OPTION<UNK! {00F8}>/CALL<0xE1!><0xE1!><0xE3!>MOTORPRESETPRESETREADRETURNREADLLISTOUTOUTLOADOUTLOADOPTIONOPTIONXOROPTION<UNK! {00F8}>XOREQVXOREQVXOREQVMOD<0xE2!>MOD<0xE1!><0xE1!><0xE3!>PRESET=<0xE1!><0xE0!><UNK! {00FC}>RETURNPRINTCLOSERESTOREDATADATALETCLS<UNK! {00FC}>WIDTH<UNK! {0080}>OPTIONWIDTHCLSCOLORPOKE<UNK! {0080}>LPRINTCLSSTOP<0x9F!><0xE0!><UNK! {0080}>DEFSNG<UNK! {0080}>LET<0x9F!>CLS<UNK! {0080}><UNK! {00F7}>MOTOREQV<UNK! {00F8}>LOADREMPRESETBLOADPRESET<0xE3!>XORLOADOUTLLIST<0x9F!>REMNEXTFORXOROUTLOADLLISTINPUTBLOAD<0xE0!><UNK! {00F8}><UNK! {00FC}>LOADNEXT=CLSXOR<UNK! {00FC}>DIM<UNK! {0080}>REMCLSPOKEREMXOR<UNK! {0080}>REMXORRESTOREREM<UNK! {00F8}><UNK! {0080}>NEXT<UNK! {00F8}>DIMEND<UNK! {FE80}><UNK! {0080}>SAVE<UNK! {0080}>WIDTH<0x9F!><0xE0!><UNK! {0080}>READ<UNK! {00F8}>DIMEND<UNK! {FE80}><UNK! {0080}><UNK! {FE80}>STOPREMXOR<UNK! {0080}>END<UNK! {00F8}>"
  56. 135  A$(35)="BSAVERUNENDENDNEWRESTOREREADEND<UNK! {00F8}><UNK! {00F8}>LLISTREMEQV<<UNK! {00FC}>OUTREMREADREMBLOAD<0xE1!><UNK! {00F8}>XOR<UNK! {00FC}>LLISTREMPRESETNEXT<0xE1!>XOR<UNK! {00FC}>OUTREMREADBLOADXOR<UNK! {00F8}>SAVEREMREAD<0xE1!><0xE0!><UNK! {00F8}>LLISTREMBLOADMOTOR<UNK! {00F8}><UNK! {00FC}><0x9F!>DIMREAD<0xE1!>XORSAVEOUTREMBLOAD<0xE0!><UNK! {00FC}>LINEKILLNEXTXOR<0xE1!><UNK! {00FC}>REMREAD<0xE1!>NEXT<UNK! {00F8}><0x9F!>READ<0xE3!>READ<UNK! {00F8}>LLISTREADPSETREAD<UNK! {00F8}><0x9F!>NEXTBSAVEREAD<UNK! {00F8}><0x9F!>NEXTPSETREAD<UNK! {00F8}>READ<0xE0!>USREND<UNK! {00FC}>NEXT<UNK! {00F8}>READ<0xE0!>COLOR<0xE0!><0x9F!>FORBSAVENEXTFILES<UNK! {00FC}>RUNDATANEXT<UNK! {00FC}>END<UNK! {00FA}><UNK! {0080}>REM<UNK! {00F8}>END<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FNRETURN<UNK! {0080}><POKESTOP<0xE1!>STOPLINEREMKEYTAB(<UNK! {0080}>NEXTRANDOMIZEFORREAD<UNK! {00F8}>LINE<0x9F!><0xE0!>CONT*SCREENPOKE<UNK! {0080}><0x9F!>TAB(DATA<UNK! {0080}>LLISTEND<UNK! {00F6}>STOPOUTON<UNK! {0080}><0x9F!>USRREM\<UNK! {0080}>COLORCLSENDXORLOADNEXT<UNK! {00F8}>READ<UNK! {00FC}><UNK! {0080}>MERGE<UNK! {00FC}>OPTION<UNK! {0080}>NEXTXOR<UNK! {0080}><UNK! {0080}>END<UNK! {00F8}><UNK! {0080}><0xDF!>"
  57. 136  A$(36)="<UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {FFC0}>END<UNK! {FE80}>CLS<0x9F!>XORNEXTXORDIMEND<UNK! {FF80}>READ<0xE0!>STOPREM<UNK! {00F8}><UNK! {0080}>LLISTRESTOREREAD<UNK! {00F8}>READRETURNREADNEXT<0xE5!>XORLOAD<0x9F!>=<0xE3!><0xE4!>REM<0xB4!>'IMP<0xE1!>BLOADDEFSNGRETURNSAVE<UNK! {00FC}>STOP=KEYSTEPLLISTDEFSTRCONTEQVMOD=INKEY$RESTORE<UNK! {00F9}>'MOD<0xE5!>BLOADLLIST<0xB6!>LOAD<UNK! {00F9}>LINE=SCREENPRESET<0xDF!>NEWRESTORE<UNK! {00FB}>CONT<UNK! {00FB}>\BLOADLLISTWENDLOAD<UNK! {00F9}>STOP=KEYSTEPLLISTDEFSTRCONT<UNK! {00FB}>CALL=SPC(DATALLIST<0xE4!><UNK! {00F9}>MERGEMOTOR=BLOADDIMSTEPNEW<0x9A!><UNK! {00FA}>LINE*<0xE1!>END<0xDF!>PSET<0x9F!>MERGE<UNK! {0080}>ON<UNK! {00F8}>ELSE<0xE1!>XORENDCOLORDATA<0x9F!>COLOR<UNK! {0080}><UNK! {00FB}>XORPRESET<UNK! {00F5}>XORREADPUT<0x9F!>STEPCLS<UNK! {FFF8}><0xE1!><UNK! {00FC}>POINTNEXT<UNK! {FFC6}>READ<UNK! {00F5}>XORREAD<UNK! {FF80}><0x9F!><0xE1!>CLSREM<UNK! {00FA}>LET<0x9F!><0xE1!><UNK! {0080}>REM<UNK! {00F8}>RESTOREREM<UNK! {00F8}><UNK! {0080}>NEXTFIELDNEXT<UNK! {00FC}><UNK! {0080}>ENDLEFT$CLS<UNK! {FFC0}><UNK! {0080}>REMXORPOKEREMXOR<UNK! {0080}>NEXT<UNK! {00FC}>NEXTEND<UNK! {FE80}><UNK! {0080}>COLOR<UNK! {0080}>LINE<0x9F!><0xE0!><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>REMXORLETREAD<UNK! {00F8}>LINE<UNK! {0080}>COLORCLS<UNK! {0080}>READ\<UNK! {0080}>END<UNK! {FE80}>ENDNEXT<UNK! {00FA}><UNK! {0080}>DATACLS"
  58. 137  HELLO$="<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FFFE}>RETURNREM<UNK! {FFF8}>OPTION<0x9F!><UNK! {FFC3}>TROFFPRESET<UNK! {00FC}>POKEOUT<0x9F!>XOR<0xE1!><0xE1!>ABSREMRETURN<UNK! {00FC}>POKEOPTIONMODEQV<0xE1!>PRESET<0x9F!>RETURNOUTOPTION<UNK! {00F8}>XOREQV=<0xE1!>BLOADPRESETLLISTLLISTRESTORELOAD<UNK! {00F8}><UNK! {00F8}><UNK! {00F8}><UNK! {00FB}><0xE0!>XORXORCOLOREND<0xE0!>XORLOADREADEND<UNK! {00F8}><UNK! {00F8}>RETURNNEXTMODCLSOPTIONREADPRESET<UNK! {0080}><UNK! {00FC}>REMSTEP<UNK! {0080}><UNK! {00F8}>READSTEP<UNK! {0080}><UNK! {00FC}>NEXTOR<UNK! {0080}>FILES<UNK! {FFC0}>COLOR<UNK! {0080}><UNK! {FFE0}>REM<0xE0!>COLOR<UNK! {00F8}>NEXT<UNK! {00F8}>READ<UNK! {FF80}>FILESOR<0xE0!>LOADLLISTNEXTSTEPREADBLOAD<0xE1!>XOR<UNK! {00F8}>SAVELLISTRETURNREAD<0xE1!><UNK! {00F8}><UNK! {00F8}>POKE<0x9F!><0xE1!>XORXOROPTION<0xDF!><0xE1!>XORXOROPTION<UNK! {FEB0}><UNK! {00F8}>OPTIONOUTCOLORPOKELOADOUTDIMREM>REMREADMOTOR<0xE3!><UNK! {00F9}><0xE1!><0xE0!>XOROPTIONCOLORPOKELOADRETURNREADREAD<0xE3!>READNEXT<0xE1!>XOR<UNK! {00FC}><0xE0!>XORLOADOUTREMINSTRLOADREMREADNEXT<UNK! {00F6}>REMNEXT<0xE1!>XORCOLORNEXT<0xE0!><UNK! {00F8}>LLISTREM<0xE0!>XORLLISTREADPRESETXORLOADREMNEXT<0xE1!><UNK! {00F8}>LLISTREADMOTORXOR<UNK! {00F8}><0x9F!>NEXTMOTOR<UNK! {00F8}>XORSAVEREADMOTORSYSTEM<0xE0!>LOADREMCLS<UNK! {00FC}>READMOTOR<UNK! {00F8}>REMENDXOR<UNK! {00FC}>READ<0xE0!>LOADLLISTENDXORLLIST"
  59. 140  LOCATE 7,37:PRINT"TALKER";
  60. 141  LOCATE 15,26:PRINT"                       ":LOCATE ,,0
  61. 150  LOCATE 20,25:PRINT"| Press any Letter or Number |"
  62. 160  LOCATE 21,25:PRINT"|  Press Space bar for DEMO  |"
  63. 165  LOCATE 22,25:PRINT"|    `Esc' to end program    |"
  64. 170  LOCATE 13,38:PRINT"VARPTRSOUNDSOUNDSOUNDCOLOR"
  65. 171  LOCATE 14,38:PRINT"CALL   CALL"
  66. 172  LOCATE 15,38:PRINT"CLSSOUNDSOUNDSOUND'"
  67. 200  ' get input
  68. 205  I$=INKEY$:IF I$="" THEN 205
  69. 210  IF I$=CHR$(27) THEN CLS:END
  70. 215  IF I$=CHR$(32) THEN 400
  71. 220  A=ASC(I$)
  72. 225  IF A>96 AND A<123 THEN A=A-32
  73. 230  IF A>64 AND A<91 THEN T=A-64:GOTO 300
  74. 240  IF A>47 AND A<58 THEN T=A-47+26:GOTO 300
  75. 250  LOCATE 14,40:PRINT" ";:SOUND 800,0.1:GOTO 200
  76. 300  ' talk!
  77. 310  LOCATE 14,40:PRINT CHR$(A);:CALL TALK(A$(T)):GOTO 200
  78. 400  ' Demo
  79. 405  LOCATE 20,25:PRINT"|                            |"
  80. 406  LOCATE 21,25:PRINT"|        **  HELLO  **       |"
  81. 407  LOCATE 22,25:PRINT"|                            |"
  82. 410  CALL TALK(HELLO$)
  83. 415  FOR I=1 TO 250:NEXT I
  84. 420  FOR I=1 TO 26
  85. 425  LOCATE 14,40:PRINT CHR$(I+64);:CALL TALK(A$(I))
  86. 430  FOR J=1 TO 100:NEXT J
  87. 435  NEXT I
  88. 440  FOR I=1 TO 10
  89. 445  LOCATE 14,40:PRINT CHR$(I+47);:CALL TALK(A$(I+26))
  90. 450  FOR J=1 TO 100:NEXT J
  91. 455  NEXT I
  92. 460  GOTO 150
  93.